//ABLMSCA   JOB (ABLMSC,B095SC),'10MIS-BLAKE X3659',                    00010000
//        CLASS=T,MSGCLASS=T,NOTIFY=ABLMSC                              00020000
//**                                                                    00030000
/*JOBPARM     L=999,T=99,LINECT=0                                       00040000
//**                                                                    00050000
//**                                                                    00060000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00070000
//*   +            J  2  8  1  S  C  Q  R - AD HOC         +            00080000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00090000
//*   +  SUMMARY: GL ACCT SUMMARY.                         +            00100000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00110000
//*   +  CHANGE LOG:                                       +            00120000
//*   +  XX/XX/XX  : IMPLEMENTED.                          +            00130000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00140000
//**                                                                    00150000
//STEP1010 EXEC PGM=IDCAMS                                              00160000
//SYSPRINT DD SYSOUT=*                                                  00170000
//SYSIN    DD *                                                         00180000
  DELETE 'ABLMSC.GL.SUMMARY.RPT01'                                      00190000
  SET MAXCC = 0                                                         00200000
//**                                                                    00210000
//STEP020     EXEC SAS                                                  00220000
//**                                                                    00230000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00240000
//*   +                                                    +            00250000
//*   +  STEP020 ABEND INSTRUCTIONS:                       +            00260000
//*   +  UNCATLG DSNS: NONE                                +            00270000
//*   +  GDG CHANGES : NONE                                +            00280000
//*   +  RESTORE     : NONE                                +            00290000
//*   +  REFERBACKS  : NONE                                +            00300000
//*   +  RESTART AT  : STEP010                             +            00310000
//*   +                                                    +            00320000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00330000
//*   +       EXTRACT GL SUMMARY YTD COUNTS.  ** SC  **    +            00340000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            00350000
//**                                                                    00360000
//FT12F001    DD DSN=ABLMSC.GL.SUMMARY.RPT01,                           00370000
//            DISP=(NEW,CATLG,DELETE),                                  00380000
//            UNIT=DISK,                                                00390000
//            SPACE=(CYL,(1,1),RLSE),                                   00400000
//            DCB=(MODEL.DSCB,RECFM=FBA,LRECL=133,                      00410000
//            BLKSIZE=0)                                                00420000
//**                                                                    00430000
//FG111       DD DSN=J231SC.MASTER.DISKCOPY,                            00440000
//            DISP=SHR                                                  00450000
//**                                                                    00460000
//SYSIN       DD *                                                      00470000
*--------------------------------------------------------------*;       00480000
*  CHANGELOG:                                                  *;       00490000
*--------------------------------------------------------------*;       00500000
                                                                        00510000
*--------------------------------------------------------------*;       00520000
*           EXTRACT         G/L           ACTVITY.             *;       00530000
*--------------------------------------------------------------*;       00540000
 DATA G111;                                                             00550000
 INFILE   FG111;                                                        00560000
 INPUT    @01  STATUS      $1.                                          00570000
          @06  ACCPRIME    $2.                                          00580000
          @11  ACCSUB2     $2.                                          00590000
          @13  ACCDEP2     $2. @;                                       00600000
 IF     ACCPRIME = '63';                                                00610000
 IF     ACCSUB2 = '84' OR ACCSUB2 = '85'                                00620000
     OR ACCSUB2 = '43' OR ACCSUB2 = '47'                                00621000
     OR ACCSUB2 = '79' OR ACCSUB2 = '2S'                                00630000
     OR ACCSUB2 = '2J' OR ACCSUB2 = '2T';                               00631000
 INPUT    @02  ACCLOC      $2.                                          00640000
          @04  ACCDIV      $2.                                          00650000
          @06  ACCPRIM4    $4.                                          00651000
          @10  ACCSUB      $3.                                          00660000
          @11  ACCSUB2     $2.                                          00661000
          @13  ACCDEP      $4.                                          00670000
          @32  ACCDESC     $30.                                         00680000
          @255 BEGNMO      PD8.2                                        00690000
          @263 CURRMO      PD8.2                                        00700000
          @311 PD01        PD8.2                                        00710000
          @319 PD02        PD8.2                                        00720000
          ;                                                             00730000
 IF       ACCLOC = 'EM' OR ACCLOC = 'EP' OR ACCLOC = 'SG'               00740002
      OR  ACCLOC = 'ZG' OR ACCLOC = 'ZM' OR ACCLOC = 'ZP';              00741002
 IF       BEGNMO > 0 OR BEGNMO < 0 OR CURRMO > 0 OR CURRMO < 0;         00750000
 ENDGMO   = (BEGNMO + CURRMO);                                          00810000
                                                                        00820000
*------- REPORTS 01 THRU 03 -------------------;                        00830000
 TITLE1 "                                           ";                  00840000
 TITLE2 "REPORT   : 01 FOR PERIOD-     FISCAL-      " ;                 00850000
 TITLE3 "SUMMARY  : GEN LEDGER                      ";                  00860000
 TITLE4 "         :                                 ";                  00870000
                                                                        00880000
*PROC FREQ;                                                             00890000
*  TABLES ACCLOC  ;                                                     00900000
*  TABLES ACCDEP  ;                                                     00910000
*  TABLES ACCDIV  ;                                                     00920000
*  TABLES ACCSUB  ;                                                     00930000
*RUN;                                                                   00940000
                                                                        00950000
                                                                        00960000
 TITLE1 "                                           ";                  00970000
 TITLE2 "REPORT   : 01 FOR PERIOD-     FISCAL-      " ;                 00980000
 TITLE3 "SUMMARY  : GEN LEDGER                      ";                  00990000
 TITLE4 "         :                                 ";                  01000000
                                                                        01010000
 PROC TABULATE FORMAT=COMMA16.2 MISSING;                                01020000
   VAR   CURRMO ENDGMO;                                                 01030000
   CLASS ACCLOC ACCPRIM4;                                               01040000
   TABLE (ACCPRIM4 ALL)*(ACCLOC ALL),                                   01050001
          CURRMO ENDGMO / RTS=30                                        01060000
   BOX='SUMMARY BY PRIME   ';                                           01070000
   KEYLABEL SUM='TOTAL';                                                01080000
 RUN;                                                                   01090000
                                                                        01100000
//**                                                                    01110000
//LAST040     EXEC DFSORT                                               01120000
//**                                                                    01130000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            01140000
//*   +  CREATE BTP JVS PRROF AND PRE-EDIT RPTS.           +            01150000
//*   ++++++++++++++++++++++++++++++++++++++++++++++++++++++            01160000
//**                                                                    01170000
//SORTIN      DD DSN=ABLMSC.GL.SUMMARY.RPT01,                           01180000
//            DISP=SHR                                                  01190000
//SORTOUT     DD SYSOUT=T,                                              01200000
//            DEST=FIN                                                  01210000
//SYSIN       DD *                                                      01220000
  SORT FIELDS=COPY                                                      01230000
//**                                                                    01240000
//**************************   END OF JOB   **************************  01250000
